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: SBEGIN RMSIDXMAC ,V04-000 


! MACRO DEFINITIONS FOR RMS-32 INDEX FILE ORGANIZATION 


Pee e eR REAR EAAAEAEEAAAEEAA AEE RARER AAA EEAAAEEKA AEE TEE eee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


is THIS heey & 4) orate aa A LICENSE AND MAY BE USED AND COPIED 
NCE THE TERMS OF H_ LICE H_TH 


® 
* 
® 
® 
® 
® 
ft 
' * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® 
* 
® 
® 
be 
7 
* 
* 


:@ SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
Hd CORPORATION. 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See RRR REE A ERE EAA ERATE AEA EEA Eee ee 
lee 
i 


FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
ABSTRACT: 


i 
! ENVIRONMENT: 
: VAX/VMS OPERATING SYSTEM 


QS 
Lo 
— 
=x 
oO 
» 


D. H. Gillespie CREATION DATE: 17-MAR-1978 
and W. Koenig 


Comment out ielenaneae to CSHSM_READAHE AD tak in the 
SCSHFLAGS macro. 


i 

i 

! MODIFiED BY: 

i v03-002 MCNO003 Maria del C. Nasr 15-Mar-1982 

: Use new Peete. Linkage eer RM$BUG3. Take out definition 
for R_REC_SIZE, and R_V 

i v03-001 MCNO002 aria del C. Nasr 25-Mar-1982 

Add macro definition to Sabkolone key buffer address. 

! v02-003 cps0001 C Saet 9-Dec-1981 

i 
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v02-002 MCNO001 aria del C. Nasr 22-Apr-1981 
Add macro det inition for determining record identifier size 
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} 

} Define macro for psect attributes 

MACRO PSECT_ATTR = EXECUTE,PIC,GLOBAL %; 

Define macro to extract size 

MACRO SBYTESIZEC(OFFSET,POSITION,WIDTH,SIGN) = WIDTH / 8 %; 


' 
Structure declarations used for system defined structrues to save typing 


STRUCTURE 
BBLOCK (O, P, S$, E; NJ = 


(BBLOCK+0)<P,S,E>, 
BBLOCKVECTOR CI, 0, P, S, E; N, BS) = 
® 

(BBLOCKVECTOR+(0+1*BS))<P,S,E>; 
i eeeee The following two macros violate the BLISS Language definition 
| etee® in that they make use of the value of SP while building the argument 
| eevee List. It is the opinion of the BLISS maintainers that this usage is safe 
| weee* from planned future optimizations. 
i Macro to call the change mode to kernel system service. 


! Macro call format is ‘‘KERNEL_CALL( ROUTINE, ARG1, ARG2, ...). 


KERNEL CALL (R= 
EXTERNAL ROUTINE SYSSCMKRNL : ADDRESSING_MODE (ABSOLUTE) : 


SYSSCMKRNL(4, .SP, %LENGTH-1 
iad ZIF £LENGTH GTR 1 XTHEN, %REMAINING %F1) 


: macro to generate a string descriptor 


DESCRIPTOR (STRING) = 
UPLIT (ZCHARCOUNT (STRING), UPLIT BYTE (STRING) )%; 


macro to return the number of actual parameters supplied to a routine call 
ACTUALCOUNT = 
BEG! 


EGIN 
BUILTIN AP; 
.(,AP)<0,8> 
END 


SS SS ED A © Se SS 
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%; 
' 
macro to generate call to bug check routine 
MACRO BUG. CHECK 


RMSBUGS .@) j i; 
i | mecre used to determine record identifier size (byte or word) depending on 
i ; prologue version of the file. 


MACRO IRCS et ty? att: = 
(TF el FABLIFB$B_PLG_VER] LSSU PLGSC_VER_3 


EN 
.RECADRCIRC$B_1D) 
-RECADRLIRC$SW_ID]) % ; 


! Macro used to determine address of key buffer wanted. Parameter is 
the keybuffer number. 


MACRO KEYBUF_ADDR(KBUFNO) = 
. IRABCIRB$L_KEYBUF] + .IFABCIFBSW_KBUFSZ) * ((KBUFNO) - 1) % ; 
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'KEEP THESE DEFINITIONS IN ALPHABETICAL ORDER, PLEASE! 


internal register definitions 


' 
i 
common register definitions 
M 


ACRO 
COMMON_FABREG = 
R_FAB, R_IFAB, R_IFAB_FILE, R_IMPURE %, 
COMMON_IOREG = 
R_BDB, R_BKT_ADDR %, 
COMMON_RABREG = 
R_RAB, R_IRAB, R_IFAB, R_IMPURE%, 
COMMON_FAB_STR = 
R_FAB_STR, 
R_IFAB_STR, 
R_IFAB_FILE_ STR, 
R_IMPURE_STR %, 
COMMON_IO_STR = 
R_BDB_STR, 
R_BKT_ADDR_STR %, 
COMMON_RAB_STR = 
R_RAB_STR, 
R_IRAB_STR, 
R_IFAB_STR, 
R_IMPURE_STR&; 
: miscellaneous register definitions ; : 
: the macros associated with registers will follow these conventions: 
: macro r_name = 5 . 
: name = register_number %; (no trailing punctuation) 
: to be used basically in a Linkage statement, an 
; macro r_name_str = 
: r.name : ref bblock %; (or whatever structure) - 
ioten to be used basically in external or global register declarations 
R_BDB = 
BDB = 4%, 
R_BKT_ADDR = 
BKT_ADDR = 5 2%, 
RFAB = 
FAB = 8 i, 
R_IDX_DFN = 
IDX_DFN = 7 Z, 
R_IFAB_FILE = 
IFAB_LFILE = 9 &%, 
R_ IMPURE 


Ices eda imeecichatapemgsaettmg eich eediiendiinciniaaicetiaihasanhiamnineaiteiniiditaandiiaaiiaaneseiaicamacaige 


eeeeteaeesaenwevenseseges 


Bee Oe Se Be Se Oe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se 
> 
mn > _— ~- 


= > 
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R_IRAB = 
IRAB 9 %, 
R_RAB = 
sg 
R_REC_ADDR = 
REC_ADDR = 6 %, 
R_IFAB = 
IF AB = 10 %, 
R_BDB_STR = 
R_BDB =: REF BBLOCK X, 
R_BKT_ADDR_STR = 
R _BKT T_ADDR : REF BBLOCK %, 
R_FAB_STR = 
R_FAB  : REF BBLOCK %, 
R_ID_STR = 
R_ID : BYTE %, | 
R_IDX_DFN_STR = | 
R-IDX_DFN : REF BBLOCK %, 
R 1FAB_STR = 
R_IFAB : REF BBLOCK %, 
R_IMPURE_STR = 
R_IMPURE : REF BBLOCK %, 
R_IRAB_STR = 
_IRAB : REF BBLOCK %, 
R_RAB_STR = 
_+ REF BBLOCK s. 
R_REC _ADDR'S 
Or ReC ADDR : REF BBLOCK %, 
R_IFAB_ FICE STR 
~1 FAB. FILE : REF BBLOCK %, 
R_VBN_ sth” 
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%; 


- 
mem 4h eo 
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! 
macro to make the status codes small 


MACRO WORDMASK(CODE) = ( 
(CODE AND %X'FFFF*)) 


MACRO RMSERR (CODE) = 
AME (*RMSS_* CODE) AND %X'FFFF') 


RMSSUC (CODE) = 
Z1F ZLENGTH EOL 0 XTHEN 


ZELSE 


ZNAME("RMS$_",CODE) AND XX'FFFF' 
ha 


macros to make the code a Little nicer 
MACRO 


and if an error resulted, do whatever you want and 
then return with the status. 


RETURN_ON_ERROR (CALL) {] = 


(LOcAC STATUS; 
IF NOT (STATUS = (CALL)) THEN 
(XZREMAINING; 


this macro is the same as the one above, except that 
and the caller can supply an *else' block 


RETURN_ELSE CALL) {) = 
(LOCAL STATUS; 
1F NOT (STATUS = (CALL)) THEN RETURN .STATUS 
ZREMAINING 


. RETURN . STATUS) 


| 
| 
| 


macro to make constants that are calculated have the <0,16> attribute 


this macro allows you to make a call to another tree 
(and do whatever you want in a block before the call) 


RETURN .STATUS)) %, 


it 


it returns w/ status whether or not there was an error 


note: the ‘call* part and "else’ part must be separated by a comma 
not a semicolon and the ‘else’ part must be terminated by a semicolon 


<< 


TAl 


- aS AE A ASN oe vai 
| 
| RMSIDXMAC.R32;1 16-SEP-1984 17:01: 7 F Page 
hatno ad - internal cache macro to put the value of the flags into cshtmp 
KASSIGN, (CSHTMP,CSHTMP OR %ZNAME('CSHSM_',A)); 
eerie 


i this is an internal cache macro to verify the cache flags and set them up 
MACRO SCSHFLAGS(FLAGS) = 


MP = 0; 
F NOT XNULL(FLAGS) %THEN 
IRP (ZREMOVE(FLAGS)); 


I; 
F (CSHTMP AND CSHSM READAHEAD) NEQ 0 ZTHEN 
ZASSIGN CSN. CSHTMP OR CSHSM_NOWAIT); 
ZIF (CSHTMP AND 
ve Ne ‘eh OR CSH$M_NOREAD OR CSHSM_NOBUFFER)) 


XF 1; 


ZF 1; 
XIF (CSHTMP AND CSH$M_NOBUFFER) NEQ 0 %THEN 
ert ZASSIGN (CSHTMP,CSHTMP OR CSHSM_NOREAD) ; 


a3 : 
! 
: this is a macro to call cache or cachec 
MACRO CACHE (VBN,SIZE,FLAGS,EP) = 
BEGIN 


I 
RIF ZNULL(FLAGS) THEN 
COMPILETIME CSHTMP = 0 


ZELSE 
SCSHFLAGS (FLAGS) 


ZIF XNULL(EP) XTHEN 
ae RMSCACHE (VBN, SIZE, CSHTMP) 


nF I NAME ("RMSCACHE' EP) (VBN,SIZE,CSHTMP) 


q; 
! 
this is a macro to call getbkt or getbktc 
MACRO GETBKT (VBN,SIZE,FLAGS.EP) = 
BEGIN 


ZIF ZNULL(FLAGS) ZTHEN 
COMPILETIME CSHTMP = 0 


ZELSE 
SCSHFLAGS (FLAGS) 


ZIF XNULL(EP) XTHEN 
ae RMSGETBKT (VBN, SIZE. CSHTMP) 
L 


ert ZNAME (*RMSGETBKT* EP) (VBN,SIZE,CSHTMP) 


END 


ZERRORMACRO ("INVALID CACHE FLAG COMBINATION’); 


al 


rt 


s ere ee eee eeeeee eee + 
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: 
these are macros to do probing of user structures 


MACRO 
1 FNORD (SIZE,ADDR,MODE) () = 


If NOT PROBER( 
1 Seep RTHEN O XELSE MODE 2FI, 


ADDR) 
XREMAINING) 


. 


° 


IFNOWRT (SIZE,ADDR,MODE) () = 


IF NOT PROBEW( 
Bie ne ee? RTHEN O ZELSE MODE 2FI, 


ADDR) 
HEN 
XREMAINING) 


r= (SIZE ,ADDR ,MODE ) C) = 


IF PROBER 
RIF  ENULL (MODE) ZTHEN O ZELSE MODE %FI, 


ADDR) 
HEN 
ZREMAINING) 


! macros to do Ll 5 pres 
READ _LONG(SIZE™ ADDR, MODE) = = NOT RMSNOREAD_LONG(SIZE,ADDR,MODE) 2%, 


WRT_LONG(SIZE,ADDR,MODE) = NOT RMSNOWRT_LONG(SIZE,ADDR,MODE) 2%; 


be 


H 
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' 
i macro to release a bucket and clear the Location where its bdb addr is stored 


MACRO RELEASE(B) = 
BEGIN 


BDB = .B; 
B= 

BASAL EBKT(O): 
ENDS; 


: macro to make sure that an assumption made about the position of symbols 
! in a structure is still valid 

! the arguments to this macro must be preceded 36} %quote 

e.g., assume (Zquote ifb$b_bid, %quote ifb$b_bin) 


“MACRO ASSUME (A,B) = 
ZF F'SBY TEOF FSET (AD + SBYTESIZE(A) NEQ SOY }EOF FSET (CB) 
EThen: ZWARN('WARNING CONSTANT HAS CHANGED 


this version of assume is good for constants 
e.g. assume (irc$c_fixovhdsz + 2, irc$c_varovhdsz); 


“MACRO ASSUME (A,B) 
F SBYTEOFFSET(A) NEQ $BYTEOFFSET(B) 
ihe ZWARN(*WARNING CONSTANT HAS CHANGED) 


“ae 
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